How Many Bugs in a Box/How Many Bugs in a Box.cdr/bugs/act1/00183.ls

Text File | 1995-04-03 | 689 b | 39 lines

on startMovie
  global game1level, animlist, rewardnum
  set animlist to the text of cast "animlist"
  set rewardnum to random(5)
  if value(game1level) = 0 then
    set game1level to 1
  end if
end

on initgame
  global doneit, game1level
  set doneit to [1, 2, 3, 4, 5, 6, 7, 8, 9, 10]
end

on mydelay howlong
  set ringmuscle to the timer + howlong
  repeat while the timer < ringmuscle
    updateStage()
  end repeat
end

on setlevel param
  global game1level
  set game1level to param
  go("start")
end

on spuppet p1, p2
  repeat with xxx = p1 to p2
    puppetSprite(xxx, 1)
  end repeat
end

on supuppet p1, p2
  repeat with xxx = p1 to p2
    puppetSprite(xxx, 0)
  end repeat
end